  real*8 fcenter
  character*80 fname80
  common/datcom/dd(4,5760000,0:1),fcenter,nutc,newdat2,kbuf,kxp,kk,kkdone,  &
                nlost,nlen,avgpwr,fname80

!  common/datcom/dd(4,5760000,0:1)
